home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / demos / 10 / logoprg / ojo.log < prev    next >
Encoding:
Text File  |  1986-04-18  |  647 b   |  40 lines
  1. TO OJO :RADIUS
  2. ST
  3. PU LT 90 FD :RADIUS RT 90
  4. PD CIRC :RADIUS
  5. PU RT 90 FD :RADIUS LT 90
  6. SHAPE 0
  7. SPOKES :RADIUS 15 HT
  8. REPEAT 300 []
  9. END
  10.  
  11. TO SHAPE :ANG
  12. REPEAT 12 [TURT.HOME RT :ANG PU FD :RADIUS PD FEATHER RT :ANG MAKE "ANG :ANG + 30]
  13. TURT.HOME
  14. END
  15.  
  16. TO TURT.HOME
  17. PU
  18. HOME
  19. PD
  20. END
  21.  
  22. TO FEATHER
  23. PD LT 10 FD 30 RT 40 FD 13
  24. RT 120 FD 13 RT 40 FD 30
  25. PU
  26. END
  27.  
  28. TO CIRC :RADIUS
  29. REPEAT 36 [RT 5 FD 2 * PI * :RADIUS / 36 RT 5]
  30. END
  31.  
  32. TO SPOKES :RADIUS :ANGLE
  33. REPEAT 12 [TURT.HOME RT :ANGLE PU FD :RADIUS PD FD 1.5 * :RADIUS MAKE "ANGLE :ANGLE + 30]
  34. PU BK 2.5 * :RADIUS SETH 0
  35. END
  36.  
  37. MAKE "GFILL "FALSE
  38. MAKE "YCOR []
  39. MAKE "XCOR []
  40.